Filename	(eval 1113)[/usr/share/perl5/CGI.pm:932]
Statements	Executed 20 statements in 149µs
Eval Invoked At	/usr/share/perl5/CGI.pm line 932
Sibling evals	1, 2, 3, 4

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	CGI::::deleteCGI::delete

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package CGI; #### Method: delete
2					# Deletes the named parameter entirely.
3					####
4					sub delete {
5	2	38µs	2	14µs	my($self,@p) = self_or_default(@_); # spent 14µs making 2 calls to CGI::self_or_default, avg 7µs/call
6	2	52µs	2	36µs	my(@names) = rearrange([NAME],@p); # spent 36µs making 2 calls to CGI::Util::rearrange, avg 18µs/call
7	2	2µs			my @to_delete = ref($names[0]) eq 'ARRAY' ? @$names[0] : @names;
8	2	400ns			my %to_delete;
9	2	3µs			for my $name (@to_delete)
10					{
11	2	11µs			CORE::delete $self->{param}{$name};
12	2	600ns			CORE::delete $self->{'.fieldnames'}->{$name};
13	2	6µs			$to_delete{$name}++;
14					}
15	2	33µs	2	19µs	@{$self->{'.parameters'}}=grep { !exists($to_delete{$_}) } $self->param(); # spent 19µs making 2 calls to CGI::param, avg 9µs/call
16	2	4µs			return;
17					}
18
19					;